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RWVB 1b-Sep-19 4 01:17:05 VAX-11 Bliss-32 V4.0-742 Page 1) 
1228671382 3330550 DISKSVMSMASTER:CF11A.SRCIRWVB.832;1 . (1) | 
; 1 60 MODULE RWVB ( 
; ¢ S LANGUAGE COL 13536) « 
; 00 IDENT = ‘V04-000' 
: & 004 )= 
; 5 005 1 BEGIN 
ang 0006 3 | 
3 ? 007 1! 
3 8 44: } Vee RRR RARAAAAAA AERA AAA R ERATE RARER 
; :* : 
5 a 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY x 
: 11 0011 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
3 \¢ 8518 } . ALL RIGHTS RESERVED. * 
; : % 
: 14 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
: 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; % Bate 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
s 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 1 4 : - TRANSFERRED. * 
3 ‘® *® 
= ae 0031 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; $$ 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $i O05i : :* CORPORATION. * 
; :* & 
eo, 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: 26 bos8 1 !@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
2 lar 0027 1 !* a 
; a 0028 1 !« a 
3 $0 ot 94 LF ee eee ARERR ARERR REE 
; 0 0030 1 
A 1 0031 1 !++ 
.) oe O08¢ a 
;. = 0033 1 ! FACILITY: F11ACP Structure Level 1 
; 0034 1! 
; 35 0035 1 ! ABSTRACT: 
; » 0036 1! : 
oi, ar 0037 1! This routine performs the window turn necessary to map a 
> 0038 1! virtual 1/0 transfer which is not mapped by the current 
; 0039 1! window. It also receives virtual 1/0 errors for bad block 
:; 40 0040 1! processing. 
; (41 0041 1! 
; $§ 004 1 ! ENVIRONMENT: 
; 4 0043 1! 
; «644 044 1! STARLET operating system, including privileged system services 
3 (45 045 1! and internal exec routines. | 
: 46 Bose 1! 
s Of 0047 1 !-- | 
; «48 0048 1 | | 
; 49 049 1! : 
: 30 030 1 7 AUTHOR: Andrew C. Goldstein, CREATION DATE: 7-Jan-1977 00:48 | 
; 2g p28 : : MODIFIED BY: 
; 008% 1; v03-001 ACG0320 Andrew C. Goldstein, 22-Mar-1983 12:27 
; 32 BRee : Change byte count handling to track IOPOST changes 
; 2$ 0089 1! A0101 ACG23542 Andrew C. Goldstein, 7-May-1979 13:36 
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Check LBN of mapped VBN against volume size 
Andrew C. Goldstein, 10-Oct-1978 20:03 
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RARY ‘SYSSLIBRARY:L1B.L32'; 
UIRE ‘SRCS$:FCPDEF.B32'; 


FORWARD ROUTINE 
READ_WRITEVB, 
MARKBAD _F (CB; 


y moved to FIlA. 


REV 


! main read/write virtual handling 
! mark bad block in FCB 
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16-Sep-1984 01:17:05 VAX=11 
12-808-1 382 93:30:98 DISKSVM 


GLOBAL ROUTINE READ_WRITEVB = 


'e4 
' 


FUNCTIONAL DESCRIPTION: 


This routine performs the window turn necessary to map a 
virtual 1/0 transfer which is not mapped by the current 
window. It also receives virtual 1/0 errors for bad block 
processing. These are presently simply returned to the user. 


i CALLING SEQUENCE: 
i READ_WRITEVB () 


' 

1 

! 

! 

' 

! 

' 

i 

i INPUT PARAMETERS: 
NONE 

i IMPLICIT INPUTS: 
IO_PACKET: 1/0 packet of request 
i OUTPUT PARAMETERS: 

; NONE 

i IMPLICIT OUTPUTS: 

NONE 

i ROUTINE VALUE: 

' 1 request requeuved to driver 
0 if error 

; SIDE EFFECTS: 

1 

! 

q 


window turned 
request requeved to driver if mapped 
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BEGIN 

LOCAL 
PACKET : REF BBLOCK, ! pointer to 1/0 packet 
WINDOW : REF BBLOCK, ' file window 
FCB : REF BBLOCK, ! le FC 
BLOCK_COUNT, ' number of blocks in transfer 
UNMAPPED , ! number of blocks not mapped 
MODE, ' mode (read/write) of transfer 
VBN, ' starting VBN of transfer 
LBN ' translated LBN 
LAST_LBN; ! highest LBN touched by operation 


USER_STATUS TOR, ' user 1/0 status block 
10_PACKET : REF BBLOCK, ! I/0 request packet 

CURRENT_VCB : REF BBLOCK, ! VCB of volume in use 
CURRENT_UCB : REF BBLOCK; ! UCB of volume in use 


EXTERNAL ROUTINE 
MAP_VBN, 


map and curn window 


- 
e 
. 
. 
. 
° 
. 
° 
. 
a 
. 
© 
eo 
. 
a 
. 
& 
a 
ca 
. 
2 
. 
eo 
. 
6 
° 
os 
. 
o 
. 
a 
. 
oe 
7 
e 
. 
oe 
. 
e 
. 
. 
eo 
7 
o 
. 
os 
7 
” 
7 
. 
° 
e 
o 
e 
° 
e 
. 
. 
. 
e 
. 
2 
. 
o 
o 
o 
. 
e 
os 
. 
. 
* 
a 
© 
a 
. 
e 
* 
. 
. 
eo 
. 
a 
. 
@ 
. 
o 
. 
e 
. 
. 
. 
oO 
. 
2 
. 
. 
Oo 
. 
o 
. 
. 
7 
. 
. 
. 
w 


14 | 
Sep-1984 01:17:05  VAX-11 Bliss-32_v4.0-742 Page 4 
ep=1986 12:29:50 DISKSVMSMASTERSCFTIA.SREIRWVB.832:1 °%° (25 
eq t | 
ca te) 


: 130 443 REQUEVE REQ, requeue request to driver ; 
; : tte SCAN_BABLOG; scan bad block log file : 
SS 44 
>; 134 bc? ! Extract the request parameters from the 1/0 packet. Compute VBN and LBN : 
: 135 448 ! of the next block to be transferred. ° 
3 1 0449 ! . 
ae Beeo ; 
: 138 451 PACKET = .10_PACKET; ; 
; 139 O4¢ WINDOW = .PACKETCIRPSL_WINDJ; : 
; 140 045 BLOCK_COUNT = (.PACKETCIRP$W_BCNTJ+511) / 512; ‘ 
3 1] pee VBN = .PACKETCIRPSL_SEGVBNJ; : 
; 128 0456 IF .VBN EQL 0 THEN ERR_EXIT (SS$_BADPARAM); : 
> 41446 045 ° 
: 145 0458 : 
: 146 0459 ! Attempt to map the request. If the map fails, report . 
3: «147 0460 ' failure. Else requeve the request to the driver. : 
; «148 0461 ! F 
; 4149 Bees : 
: 150 046 LBN = MAP_VBN (.VBN, .WINDOW, .BLOCK_COUNT, UNMAPPED); : 
; 133 re¢: IF .LBN EGL -1 THEN ERR_EXIT ($S$_ENDOF FILE); : 
3 13 0466 IF .PACKETCIRP$V_VIRTUALJ 3 
; 154 0467 THEN 3 
s 155 0468 : 
: 156 0469 LAST_LBN = .LBN + (.BLOCK_COUNT = .UNMAPPED - 1); 3 
:| or 0470 3 IF .CBN GEQU .CURRENT UCBCUCBSL_MAXBLOCK 

: 158 0471 3 OR .LAST_LBN GEQU .CURRENT UCBCOCBSL_MAXBLOCK) 

; 159 047 THEN ERR_EXIT (SS$_ILLBLKNOM); 

: 160 047 KERNEL_CALL (REQUEQE_REQ, .PACKET, .LBN, .UNMAPPED); 

: 161 0474 RETURN 1; 

3 196 0475 END 

: 16 0476 | 

3 «164 0477 ! If the virtual bit is not set, this is an 1/0 error on a file sent here 

s 165 0478 3 ! for bad block process ing. If the error is a parity, format, or datacheck 

> 166 0479 ; ! error, we set the bad block bit in the FCB of the file and enter the 

: or 0480 ! block in question into the volume's bad block log. Note that we do not 

; 168 0481 ! do this on errors on the volume's reserved files, which are not subject 

: 169 048 ! to dynamic bad block processing. 

: 170 048 : 

; 6171 0484 

: v6 0485 ELSE 

. oF ty BEGIN 

3 (174 4 FCB = .WINDOWCWCBSL_FCB); 

s 75 488 

; 178 489 4 

. 0490 4 - (PACKETCIRP$L_10ST1])<0,16> EQL SS$_PARITY 

: #178 0491 4 OR .(PACKETCIRP$L_I0ST1J)<0,16> EQL SS$_DATACHECK 

3; 179 0492 4 OR .(PACKETCIRP$L_10ST1J)<0,16> EQL SS$_FORMAT 

; 180 493 4 ) 

s 181 494 4 AND ( 

: 182 0495 4 -FCBCFCBSW_FID te: GTRU .CURRENT_VCBCVCB$B_RESF ILES) 

s 185 496 5 OR (.CURRERT VCBLVCBSV_EXTFIDJ 

3; «(184 497 5 AND .FCBCFCB$B_FID-NMX) NEQ 0) 

: «6185 498 4 

: 186 499 3 THEN 
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: 187 0500 4 BEGIN : 
; 188 i é KERNEL_CALL (MARKBAD_FCB, .FCB); : 
; 189 § 4 MODE = cae READERR? ' assume read ; 
: 190 4 IF .PACKETLIRPS$V FCObE) act 10$_WRITEPBLK : 
>: 191 09 4 6 THEN MODE = ENTER w WRITER ; 
: 198 205 4 SCAN_BADLOG (FCBCFCBSW Fitba. -VBN, .LBN, .MODE, 0); : 
: 194 0507 USER. sTATUSEO] = .PACKETCIRPS$L_10ST1 ! get status to return to user 3 
> 195 508 USER-STATUSL1] = .PACKETCIRPSL— 10812): ; 
: 196 0509 URN 0; ; 
: 197 0510 : ; 
; #4198 bat) 3 
; 199 512 END; ! end of routine READ_WRITEVB : 
.TITLE RWVB ; 

“IDENT \V04-000\ F 

.EXTRN USER_STATUS, 10 PACKET : 

-EXTRN CURRENT_VCB Bs CURRENT_UCB 3 

.EXTRN MAP_VBN> REQUEUE : 

-EXTRN SCAN_BADLOG, SYSSCMKRNL F 

-PSECT S$CODE$,NOWRT,2 ; 

OOFC 00000 -ENTRY READ_WRITEVB, Save R2,R3,R4,R5,R6,R7 : 0386 ; 

57 000000006 9F H 00002 MOVAB a#SYSSCMKRNL R7 ; ; 

SE 04 C2 00009 SUBL2 #4, : : 

53 00006 CF 00 0000C MOVL 10 PACKET PACKET > 0451 ; 

55 18 A3 pO 00011 MOVL SOLPARRET WINDOW ; O45¢ ; 

50 32 a3 3C 00015 MOVZWL 5O(PA RO : 045 : 

50 O1FF 6 CO 3 00019 MOVAB 511(RO) : ; 

52 50 00000200 8F C7? OOO1E DIVL3 #512, Rb RBLOCK. COUNT : : 

56 48 A3 DO 00026 MOVL §$72(PACKET), VBN™ > 0454 ; 

03 12 O002A BNEQ ~='1$ : 0456 : 

14 BF 0002C CHMU = #20 ; : 

04 0002E RET ; : 

4004 8F 6B 990 F 1$: PUSHR #*M<R2,SP> > 0463 : 

55 DD 99 3 PUSHL WINDOW ; : 

56 DD 00035 PUSHL VBN ; F 

0000G CF 04 FB 00037 CALLS #4, MAP_VBN ; : 

54 0 o0 0003C MOVL RO, LBN : : 

FFFFFFFE © 8F 54 D1 0003F CMPL LBN, #1 > 0464 : 

05 12 0046 BNEQ ; : 

0870 «BF BF 04 CHMU #2160 ; : 

4 0004C RET 3 : 

33 2a AD 04 £1 00040 2$: BBC #4, 42 (PACKET) , 5$ > 0466 : 

52 bE 2 905 SUBL2 UNMAPP : 0469 : 

51 FF A244 F 05 MOVAB -1(R2) tLénd. LAST_LBN : : 

50 00006 cr D D034 MOVL § CURRENT RO : 0470 : 

0080 36s C0 4 01 F CMPL BN, N7BXR j ; 3 

7 i 9064 BGEQU : : 

0080 «6 C0 1 D CMP LAST_LBN, 176(RO) > 0471 : 

05 1F B BLSSU 4 : : 

00D¢ F BF D 3$: CHMU ©: #220 : 0472 : 

4 1 RET ; : 

DD 00072 UNMAPPED > 0473 : 


+ 
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3; Routine Size: 238 bytes, Routine Base: $CODE$ + 0000 


4 DISKSVMSMASTER:CF11A.SRCIRWVB.B32;1 (2) | 
1 BB 9 074 PUSHR #*M<R3,R4> : : 
03 ppd 076 PUSHL a3 : | ; 
5E DD of PUSHL : 3 
F OF 7A PUSHAB sFau : 3 
6 FB 007E CALLS Ag "SY SSCRKRNL : 3 
1 b 0081 MOVL RO : 0486 | 3 
4 00084 RET : : 
x} DO 00085 5$: MOVL 4(WINDOW), FC 3 0487 : 
A3 Bi 00089 CMPW 6(PACKET), #500 : 0490 : 
19 13 0008F BEQL $$ : : 
A3 Bi 00091 CMPW 6(PACKET), #92 + 0491 3 
08 13 944 BEQL : 3 
A3 BI 99 CMPW 6(PACKET), #188 : 0492 : 
44 12 0009F BNEQ : 3 
CF DO OOOA1 6$: MOVL 790) vCB, RO 3 0495 : 
AO 9A O00A6 MOVZBL ie : $ 
51 B1 OOOAA CMPW satee : : 
OA iF OOOAE BLSSU He : 3 
05 + 00080 C #5, 11(RO), 9$ + 0496 : 
A2 95 00085 TSTB 41 (FCB) : 0497 : 
8 13 00088 BEQL 9$ 3 3 
2 DD OOOBA 7$: PUSHL FCB : 0501 3 
01 DD 000BC PUSHL #1 : 3 
SE DD OO0BE PUSHL SP : : 
CF 9F 000CO PUSHAB MARKBAD_FCB : : 
04 FB 000C4 CALLS #4, SYSSCMKRNL : 3 
01 DO 000C7 MOVL #1, MOD ; 9308 : 
00 ED OOOCA CMPZ7V #0. #6, 32(PACKET), #11 ; 050 : 
03 12 00000 BNEQ 8$ : 3 
02 00 9000¢ MOVL #2, MODE 3 0504 : 
7E D4 00005 88: CLRL = = ($P) : 0505 ; 
50 DD 00007 PUSHL MODE 3 F 
54 DD 00009 PUSHL  LBN : : 
56 DD 000DB PUSHL : 3 
24 A2 YF O000DD PUSHAB 36(FCB) ; 3 
0000G CF 05 FB OO0EO CALLS #5, SCAN _BADLOG : : 
0000G CF 38 A3 7D OOOES 9S: MOVQ SOtPACKET) USER_ STATUS : 0507 3 
50 D4 OOOEB CLRL RO ; 0509 ; 
04 OO0ED ET ; 0512 : 
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; Routine Size: 


PSECT SUMMARY 


1§- p19 1: 
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VAX-11 Bliss-32 V4.0-742 


DISKSVMSMASTER: CF 


: Name Bytes Attributes 

$ SCODES 252 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 

eR Se lera wy WPS sepeanian “Rig. eta, eee nap oe PYEROLE Seaeeeee Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28: CSYSLIBILIB.L32;1 18619 23 0 1000 00:01.9 

$ COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:RWVB/OBJ=OBJ$:RWVB MSRC$:RWVB/UPDATE=(ENHS$:RWVB) 
3 size: 252 code + 0 data bytes 

; Run Time 0:09.2 

3 pe Tine: 0 ee 8 

; Lines/CPU Min: 643 

3 oneness CPU-ies 12338 

3 A Ps Used: 118 pages 

; ae ation Complete 


iA 


- SRCIRWVB.B32; 1 
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